home *** CD-ROM | disk | FTP | other *** search
/ Profi Club / Profi_Club_1_1992_-_de.d64 / time step.64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  104 lines
  1. 100 poke 53281,0:poke 53280,0:print chr$(5)chr$(142)chr$(8)
  2. 110 print"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  3. 120 d$="[194][146]                                     [194]"
  4. 130 print d$:print d$
  5. 140 print"[194][146]             hauptmenue              [194]
  6. 150 [129] n[178]1 [164] 3:[153] d$:[130] n
  7. 160 [153]"peekwait      f1wait   wochentag bestimmen       peek
  8. 170 for n=1 to 3:print d$:next n
  9. 180 print"[194][146]      f3[146]   tage zwischen daten       [194]
  10. 190 [153] d$
  11. 200 [153]"peekwait           -ohnewait minuten & stunden   peek
  12. 210 for n=1 to 3:print d$:next n
  13. 220 print"[194][146]      f5[146]   tage zwischen daten       [194]
  14. 230 [153] d$
  15. 240 [153]"peekwait           -mit wait minuten & stunden   peek
  16. 250 for n=1 to 3:print d$:next n
  17. 260 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  18. 270 get a$
  19. 280 if a$=chr$(133) then 330
  20. 290 if a$=chr$(134) or a$=chr$(135) then 470
  21. 300 goto 270
  22. 310 :
  23. 320 :
  24. 330 rem unterprogramm wochentagbestimmung
  25. 340 i=1:gosub 680:gosub 1030
  26. 350 if wo=0 then b$=" samstag "
  27. 360 if wo=1 then b$=" sonntag "
  28. 370 if wo=2 then b$=" montag "
  29. 380 if wo=3 then b$=" dienstag "
  30. 390 if wo=4 then b$=" mittwoch "
  31. 400 if wo=5 then b$=" donnerstag "
  32. 410 if wo=6 then b$=" freitag "
  33. 420 print" wochentag        :"b$
  34. 430 print"":gosub 830:goto 340
  35. 440 :
  36. 450 :
  37. 460 rem tage zwischen daten
  38. 470 for i=1 to 2:gosub 680:gosub 1030
  39. 480 f(i)=f:next i
  40. 490 nd=f(2)-f(1)
  41. 500 if a$=chr$(135) then 580
  42. 510 :
  43. 520 rem -- ohne minuten/stunden
  44. 530 print" anzahl der tage  :     "nd
  45. 540 gosub 930:print"":gosub 830:gosub 470
  46. 550 :
  47. 560 :
  48. 570 rem -- mit  minuten/stunden
  49. 580 gg=60*h(2)+mi(2)-(60*h(1)+mi(1))
  50. 590 if gg<0 then nd=nd-1:h(2)=h(2)+24:goto 580
  51. 600 h=int(gg/60):m=gg-60*h
  52. 610 print" "nd"[146]tage  "h"[146]stunden  "m"[146]minuten"
  53. 620 xx=nd*1440+gg
  54. 630 print" oder in tagen    : "int(xx/14.4+.5)/100
  55. 640 print" oder in stunden  : "int(xx/.6+.5)/100
  56. 650 gosub 930:print"":gosub 830:gosub 470
  57. 660 :
  58. 670 :
  59. 680 rem eingabe der datenparameter
  60. 690 print"[147]"
  61. 700 poke19,64:input" jahr z.b.  1986  :";y(i):print
  62. 710 if y(i)<1582 then 690
  63. 720 input" monat            :";m(i):print
  64. 730 if m(i)>12   then 690
  65. 740 input" tag              :";d(i):print:poke19,0
  66. 750 if d(i)>31   then 690
  67. 760 if a$<>chr$(135) then 790
  68. 770 poke19,64:input" stunden          :";h(i):print
  69. 780 input" minuten          :";mi(i):print:poke19,0
  70. 790 return
  71. 800 :
  72. 810 :
  73. 820 rem untermenue-graphic darstellen
  74. 830 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  75. 840 print"[194]   e[146]nde    h[146]auptmenue    n[146]ocheinmal  [194]"
  76. 850 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  77. 860 get c$
  78. 870 if c$="e" then end
  79. 880 if c$="h" then clr:goto 100
  80. 890 if c$="n" then return
  81. 900 goto 860
  82. 910 :
  83. 920 rem poke-unterprogramm
  84. 930 poke 211,18:poke214,4:sys58640:print" bis         von "
  85. 940 poke 211,18:poke214,5:sys58640:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  86. 950 poke 211,30:poke214,7:sys58640:print y(1)
  87. 960 poke 211,30:poke214,9:sys58640:print m(1)
  88. 970 poke 211,30:poke214,11:sys58640:print d(1)
  89. 980 if a$<>chr$(135) then 1010
  90. 990 poke 211,30:poke214,13:sys58640:print h(1)
  91. 1000 poke 211,30:poke214,15:sys58640:print mi(1)
  92. 1010 return
  93. 1020 :
  94. 1030 rem unterroutine zur bestimmung von faktor f
  95. 1040 f1=365*y(i)+d(i)+31*(m(i)-1)
  96. 1050 if m(i)>2 then 1080
  97. 1060 f2=int((y(i)-1)/4)-int(3/4*(int(((y(i)-1)/100)+1)))
  98. 1070 goto 1090
  99. 1080 f2=-int(.4*m(i)+2.3)+int(y(i)/4)-int(3/4*(int(y(i)/100)+1))
  100. 1090 f=f1+f2
  101. 1100 wo=f-int(f/7)*7
  102. 1110 return
  103. 1120 rem         ---- e n d e ----
  104.